home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / BOOLEAN.P < prev    next >
Text File  |  1990-09-13  |  662b  |  32 lines
  1. temp <- <primitive 110 6 >
  2. <primitive 112 temp 1        " xor: " \
  3.     #( #[ 32 33 182 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " eqv: " \
  7.     #( #[ 32 33 181 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " or: " \
  11.     #( #[ 32 251 2 33 165 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " and: " \
  15.     #( #[ 32 252 2 33 165 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " | " \
  19.     #( #[ 32 251 1 33 243 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 6        " & " \
  23.     #( #[ 32 252 1 33 243 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 98 #Boolean \
  27.     <primitive 97 #Boolean #Object #\smalltlk\prelude\boolean.st \
  28.     #(  ) \
  29.     #( #xor: #eqv: #or: #and: #| #&  ) \
  30.     temp 2 3 > >
  31.  
  32.